﻿Public Class Form3

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        '  Dim test As New OpenFileDialog
        ' test.InitialDirectory = My.Computer.FileSystem.SpecialDirectories.Desktop
        Dim tp As New Web2Images
        tp.wurl = "http://www.baidu.com"
        tp.savename = "baidu.png"
        tp.path = "e:\downpic\"
        tp.DoWork()
        MsgBox("done")

    End Sub
End Class